home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
batchut
/
bcsrce2.zip
/
PATHS.BC
< prev
next >
Wrap
Text File
|
1990-10-18
|
3KB
|
160 lines
save_screen
let %!a = %path%
parse %!a %!b ;
parse %!b %!c ;
parse %!c %!d ;
parse %!d %!e ;
parse %!e %!f ;
parse %!f %!g ;
parse %!g %!h ;
parse %!h %!i ;
parse %!i %!j ;
parse %!j %!k ;
parse %!k %!l ;
parse %!l %!m ;
parse %!m %!n ;
parse %!n %!o ;
parse %!o %!p ;
parse %!p %!q ;
parse %!q %!r ;
parse %!r %!s ;
parse %!s %!t ;
parse %!t %!u ;
:mainloop
cls
echo 1) %!a
echo 2) %!b
echo 3) %!c
echo 4) %!d
echo 5) %!e
echo 6) %!f
echo 7) %!g
echo 8) %!h
echo 9) %!i
echo 10) %!j
echo 11) %!k
echo 12) %!l
echo 13) %!m
echo 14) %!n
echo 15) %!o
echo 16) %!p
echo 17) %!q
echo 18) %!r
echo 19) %!s
echo 20) %!t
echo
echonolf Do you want to: (A)dd, (D)elete, or (Q)uit?\\32
getkey
if errlevel 65 goto addpath
if errlevel 97 goto addpath
if errlevel 68 goto delpath
if errlevel 100 goto delpath
if errlevel 81 goto exitpath
if errlevel 113 goto exitpath
goto mainloop
:delpath
echo
echonolf Which number do you want to delete?
read %!z
le %!z 1
if errorlevel 1 let %!a = %!b
le %!z 2
if errorlevel 1 let %!b = %!c
le %!z 3
if errorlevel 1 let %!c = %!d
le %!z 4
if errorlevel 1 let %!d = %!e
le %!z 5
if errorlevel 1 let %!e = %!f
le %!z 6
if errorlevel 1 let %!f = %!g
le %!z 7
if errorlevel 1 let %!g = %!h
le %!z 8
if errorlevel 1 let %!h = %!i
le %!z 9
if errorlevel 1 let %!i = %!j
le %!z 10
if errorlevel 1 let %!j = %!k
le %!z 11
if errorlevel 1 let %!k = %!l
le %!z 12
if errorlevel 1 let %!l = %!m
le %!z 13
if errorlevel 1 let %!m = %!n
le %!z 14
if errorlevel 1 let %!n = %!o
le %!z 15
if errorlevel 1 let %!o = %!p
le %!z 16
if errorlevel 1 let %!p = %!q
le %!z 17
if errorlevel 1 let %!q = %!r
le %!z 18
if errorlevel 1 let %!r = %!s
le %!z 19
if errorlevel 1 let %!s = %!t
le %!z 20
if errorlevel 1 let %!t =
goto mainloop
:addpath
echo
echonolf What do you want to add?
read %!z
if %!a. == . let %!a = %!z
if %!a == %!z goto addpathend
if %!b. == . let %!b = %!z
if %!b == %!z goto addpathend
if %!c. == . let %!c = %!z
if %!c == %!z goto addpathend
if %!d. == . let %!d = %!z
if %!d == %!z goto addpathend
if %!e. == . let %!e = %!z
if %!e == %!z goto addpathend
if %!f. == . let %!f = %!z
if %!f == %!z goto addpathend
if %!g. == . let %!g = %!z
if %!g == %!z goto addpathend
if %!h. == . let %!h = %!z
if %!h == %!z goto addpathend
if %!i. == . let %!i = %!z
if %!i == %!z goto addpathend
if %!j. == . let %!j = %!z
if %!j == %!z goto addpathend
if %!k. == . let %!k = %!z
if %!k == %!z goto addpathend
if %!l. == . let %!l = %!z
if %!l == %!z goto addpathend
if %!m. == . let %!m = %!z
if %!m == %!z goto addpathend
if %!n. == . let %!n = %!z
if %!n == %!z goto addpathend
if %!o. == . let %!o = %!z
if %!o == %!z goto addpathend
if %!p. == . let %!p = %!z
if %!p == %!z goto addpathend
if %!q. == . let %!q = %!z
if %!q == %!z goto addpathend
if %!r. == . let %!r = %!z
if %!r == %!z goto addpathend
if %!s. == . let %!s = %!z
if %!s == %!z goto addpathend
let %!t = %!z
:addpathend
goto mainloop
:exitpath
let %!z = %!a;%!b;%!c;%!d;%!e;%!f;%!g;%!h;%!i;%!j;%!k;%!l;%!m;%!n;%!o;%!p;%!q;%!r;%!s;%!t
:strip_semicolon_loop
let %!y = %!z
string_length %!y
let %!x = %!z
substring %!x %!y 1
sub %!y 1
if %!x == ; substring %!z 1 %!y
if %!x == ; goto strip_semicolon_loop
path=%!z
restore_screen